home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_d / odbcall.zip / BUFRDEMO.ZIP / UNIT1.PAS < prev   
Pascal/Delphi Source File  |  1995-11-05  |  3KB  |  106 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, TGQry, ODBCQry, Grids, DataCtrl, ExtCtrls, StdCtrls,
  8.   Buttons;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     Panel1: TPanel;
  13.     DataGrid1: TDataGrid;
  14.     ODBCQuery1: TODBCQuery;
  15.     ODBCCon1: TODBCCon;
  16.     StatusLabel: TLabel;
  17.     RadioGroup1: TRadioGroup;
  18.     UnDo: TSpeedButton;
  19.     UnDelete: TSpeedButton;
  20.     Delete: TSpeedButton;
  21.     Insert: TSpeedButton;
  22.     procedure FormCreate(Sender: TObject);
  23.     procedure ODBCQuery1AfterScroll(Sender: TComponent;
  24.       ScrollBy: TScrollType; ScrollInfo: Longint);
  25.     procedure RadioGroup1Click(Sender: TObject);
  26.     procedure UnDoClick(Sender: TObject);
  27.     procedure UnDeleteClick(Sender: TObject);
  28.     procedure ODBCQuery1AfterActivate(Sender: TComponent);
  29.   private
  30.     { Private declarations }
  31.   public
  32.     { Public declarations }
  33.   end;
  34.  
  35. var
  36.   Form1: TForm1;
  37.  
  38. implementation
  39.  
  40. {$R *.DFM}
  41.  
  42. procedure TForm1.FormCreate(Sender: TObject);
  43. begin
  44.   ODBCQuery1.Active := True;
  45. end;
  46.  
  47. procedure TForm1.ODBCQuery1AfterScroll(Sender: TComponent;
  48.   ScrollBy: TScrollType; ScrollInfo: Longint);
  49. begin
  50.   Case ODBCQuery1.RowStatus of
  51.     rsOriginal: StatusLabel.Caption := ' Unmodified';
  52.     rsModified: StatusLabel.Caption := ' Modified';
  53.     rsNew: StatusLabel.Caption := ' New Unmodified';
  54.     rsNewModified: StatusLabel.Caption := ' New Modified';
  55.     rsDeleted: StatusLabel.Caption := ' Deleted';
  56.   end;
  57. end;
  58.  
  59. procedure TForm1.RadioGroup1Click(Sender: TObject);
  60. begin
  61.   UnDelete.Enabled := False;
  62.   UnDo.Enabled := False;
  63.   Delete.Enabled := False;
  64.   Insert.Enabled := False;
  65.  
  66.   Case RadioGroup1.ItemIndex of
  67.     0:
  68.     begin
  69.       ODBCQuery1.Buffer := bData;
  70.       UnDo.Enabled := True;
  71.       Insert.Enabled := True;
  72.       Delete.Enabled := True;
  73.     end;
  74.     1: ODBCQuery1.Buffer := bOriginal;
  75.     2:
  76.     begin
  77.       UnDelete.Enabled := True;
  78.       ODBCQuery1.Buffer := bDeleted;
  79.     end;
  80.   end;
  81.   ODBCQuery1AfterActivate(ODBCQuery1);
  82. end;
  83.  
  84. procedure TForm1.UnDoClick(Sender: TObject);
  85. begin
  86.   ODBCQuery1.UnDo;
  87. end;
  88.  
  89. procedure TForm1.UnDeleteClick(Sender: TObject);
  90. begin
  91.   ODBCQuery1.UnDelete;
  92. end;
  93.  
  94. procedure TForm1.ODBCQuery1AfterActivate(Sender: TComponent);
  95. begin
  96.   Case ODBCQuery1.RowStatus of
  97.     rsOriginal: StatusLabel.Caption := ' Unmodified';
  98.     rsModified: StatusLabel.Caption := ' Modified';
  99.     rsNew: StatusLabel.Caption := ' New Unmodified';
  100.     rsNewModified: StatusLabel.Caption := ' New Modified';
  101.     rsDeleted: StatusLabel.Caption := ' Deleted';
  102.   end;
  103. end;
  104.  
  105. end.
  106.